﻿'******************************************************
'******************************************************
'Application Title: Google Widget Editor
'version: 1.0
'Date: 01-02-2008
'Requirements: win2k or later
'Author: Andrew Pye
'Author Email: StretchMasterP@googlemail.com
'License: Released under GNU GENERAL PUBLIC LICENSE v3
'ToDo:
'Changes:Imports System.Text
'******************************************************
'******************************************************

Imports System.Xml

Public Class ClassJavaList
    Private m_xmld As XmlDocument
    Private m_nodelist As XmlNodeList
    Private CurrNode As XmlNode = Nothing
    Public Sub Load(ByVal FileName As String)
        m_xmld = New XmlDocument()
        m_xmld.Load(FileName)
        CurrNode = m_xmld.ChildNodes(1)
    End Sub
    Public Function GetCurrentLevel() As String()
        Dim List As New ArrayList

        For Each TNode As XmlNode In CurrNode.ChildNodes
            List.Add(TNode.Attributes("Name").Value)
        Next
        Dim TArray(List.Count - 1) As String
        For i As Integer = 0 To List.Count - 1
            TArray(i) = List(i)
        Next
        Return TArray
    End Function
End Class
